home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Apple Reference & Presen…rary 5 (Internal Edition)
/
Apple R&P Lib Internal v5.0.iso
/
6-Developer Demos
/
Developer Demos-Ed.
/
Macintosh School® CD-ROM Demo
/
Macintosh SchoolÆ CD-ROM Demo
/
card_36595.txt
< prev
next >
Wrap
Text File
|
1990-08-14
|
18KB
|
839 lines
-- card: 36595 from stack: in
-- bmap block id: 60203
-- flags: 4000
-- background id: 13605
-- name: CD General
----- HyperTalk script -----
on openCard
tabKey
end openCard
-- part 1 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=148 top=60 right=80 bottom=270
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Course No.
-- part 3 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=148 top=84 right=104 bottom=300
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Course Name
-- part 4 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=148 top=108 right=128 bottom=300
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Alternate Name
-- part 5 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=148 top=160 right=180 bottom=210
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Sequence #
-- part 6 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=253 top=160 right=180 bottom=290
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: EFT
-- part 7 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=148 top=192 right=212 bottom=210
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Warp Factor 1
-- part 8 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=347 top=192 right=212 bottom=409
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Warp Factor 2
-- part 9 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=386 top=85 right=105 bottom=443
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Credits
-- part 10 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=155 top=133 right=151 bottom=272
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Department
-- part 11 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=155 top=223 right=241 bottom=272
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Points & Credits
-- part 12 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=393 top=61 right=78 bottom=426
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Grade
-- part 14 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=19 top=134 right=150 bottom=271
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Department:
----- HyperTalk script -----
on mouseDown
global checkLoc1
if the clickH >= 147 then
get the rect of me
put item 1 of it + 128 into horz
put item 2 of it into vert
put "NA,Commerce,English,French,Home Economics," into menuList
put "Industrial Ed.,Mathematics,Physical Educ...," after menuList
put "Science,Social Studies" after menuList
set hilite of me to true
put PopUpMenu(menuList,vert,horz,checkLoc1) into temp
if temp <> 0 then
put temp into checkloc1
put item temp of menuList into card field "Department"
end if
set hilite of me to false
end if
end mouseDown
-- part 15 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=19 top=224 right=240 bottom=271
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Points & Credits:
----- HyperTalk script -----
on mouseDown
global checkLoc2
if the clickH >= 147 then
get the rect of me
put item 1 of it + 128 into horz
put item 2 of it into vert
put "Table 1 ,Table 2,Table 3,Table 4" into menuList
set hilite of me to true
put PopUpMenu(menuList,vert,horz,checkLoc2) into temp
if temp <> 0 then
put temp into checkloc2
put item temp of menuList into card field "Points & Credits"
end if
set hilite of me to false
end if
end mouseDown
-- part 16 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=319 top=62 right=78 bottom=426
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Grade:
----- HyperTalk script -----
on mouseDown
global checkLoc3
if the clickH >= 385 then
get the rect of me
put item 1 of it + 66 into horz
put item 2 of it into vert
put "(K ," into menuList
put "(1,(2,(3,(4,(5,(6,(7,(8,(9,(10," after menuList
put "11,12,(13" after menuList
set hilite of me to true
put PopUpMenu(menuList,vert,horz,checkLoc3) into temp
if temp <> 0 then
put temp into checkloc3
put item temp of menuList into card field "Grade"
end if
set hilite of me to false
end if
end mouseDown
-- part 17 (button)
-- low flags: 00
-- high flags: A005
-- rect: left=323 top=111 right=127 bottom=465
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Keep attendance
-- part 18 (button)
-- low flags: 00
-- high flags: A005
-- rect: left=323 top=127 right=143 bottom=465
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Keep marks
-- part 19 (button)
-- low flags: 00
-- high flags: A005
-- rect: left=323 top=143 right=159 bottom=465
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Graduation Rqmt.
-- part 20 (button)
-- low flags: 00
-- high flags: A001
-- rect: left=29 top=271 right=285 bottom=64
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Revert
----- HyperTalk script -----
on mouseUp
repeat with index = 21 to 34
set hilite of button id index to false
end repeat
end mouseUp
-- part 21 (button)
-- low flags: 00
-- high flags: 8001
-- rect: left=66 top=272 right=284 bottom=78
-- title width / last selected line: 0
-- icon id / first selected line: 5070 / 5070
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: K
----- HyperTalk script -----
on mouseUp
if icon of me is 0 then set hilite of me to not hilite of me
else beep
end mouseUp
-- part 22 (button)
-- low flags: 00
-- high flags: 8001
-- rect: left=81 top=272 right=284 bottom=93
-- title width / last selected line: 0
-- icon id / first selected line: 5070 / 5070
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: 1
----- HyperTalk script -----
on mouseUp
if icon of me is 0 then set hilite of me to not hilite of me
else beep
end mouseUp
-- part 23 (button)
-- low flags: 00
-- high flags: 8001
-- rect: left=96 top=272 right=284 bottom=108
-- title width / last selected line: 0
-- icon id / first selected line: 5070 / 5070
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: 2
----- HyperTalk script -----
on mouseUp
if icon of me is 0 then set hilite of me to not hilite of me
else beep
end mouseUp
-- part 24 (button)
-- low flags: 00
-- high flags: 8001
-- rect: left=111 top=272 right=284 bottom=123
-- title width / last selected line: 0
-- icon id / first selected line: 5070 / 5070
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: 3
----- HyperTalk script -----
on mouseUp
if icon of me is 0 then set hilite of me to not hilite of me
else beep
end mouseUp
-- part 25 (button)
-- low flags: 00
-- high flags: 8001
-- rect: left=126 top=272 right=284 bottom=138
-- title width / last selected line: 0
-- icon id / first selected line: 5070 / 5070
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: 4
----- HyperTalk script -----
on mouseUp
if icon of me is 0 then set hilite of me to not hilite of me
else beep
end mouseUp
-- part 26 (button)
-- low flags: 00
-- high flags: 8001
-- rect: left=141 top=272 right=284 bottom=153
-- title width / last selected line: 0
-- icon id / first selected line: 5070 / 5070
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: 5
----- HyperTalk script -----
on mouseUp
if icon of me is 0 then set hilite of me to not hilite of me
else beep
end mouseUp
-- part 27 (button)
-- low flags: 00
-- high flags: 8001
-- rect: left=156 top=272 right=284 bottom=168
-- title width / last selected line: 0
-- icon id / first selected line: 5070 / 5070
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: 6
----- HyperTalk script -----
on mouseUp
if icon of me is 0 then set hilite of me to not hilite of me
else beep
end mouseUp
-- part 28 (button)
-- low flags: 00
-- high flags: 8001
-- rect: left=171 top=272 right=284 bottom=183
-- title width / last selected line: 0
-- icon id / first selected line: 5070 / 5070
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: 7
----- HyperTalk script -----
on mouseUp
if icon of me is 0 then set hilite of me to not hilite of me
else beep
end mouseUp
-- part 29 (button)
-- low flags: 00
-- high flags: 8001
-- rect: left=186 top=272 right=284 bottom=198
-- title width / last selected line: 0
-- icon id / first selected line: 5070 / 5070
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: 8
----- HyperTalk script -----
on mouseUp
if icon of me is 0 then set hilite of me to not hilite of me
else beep
end mouseUp
-- part 30 (button)
-- low flags: 00
-- high flags: 8001
-- rect: left=201 top=272 right=284 bottom=213
-- title width / last selected line: 0
-- icon id / first selected line: 5070 / 5070
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: 9
----- HyperTalk script -----
on mouseUp
if icon of me is 0 then set hilite of me to not hilite of me
else beep
end mouseUp
-- part 31 (button)
-- low flags: 00
-- high flags: 8001
-- rect: left=216 top=272 right=284 bottom=228
-- title width / last selected line: 0
-- icon id / first selected line: 5070 / 5070
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: 10
----- HyperTalk script -----
on mouseUp
if icon of me is 0 then set hilite of me to not hilite of me
else beep
end mouseUp
-- part 32 (button)
-- low flags: 00
-- high flags: 8001
-- rect: left=231 top=272 right=284 bottom=243
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: 11
----- HyperTalk script -----
on mouseUp
if icon of me is 0 then set hilite of me to not hilite of me
else beep
end mouseUp
-- part 33 (button)
-- low flags: 00
-- high flags: 8001
-- rect: left=246 top=272 right=284 bottom=258
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: 12
----- HyperTalk script -----
on mouseUp
if icon of me is 0 then set hilite of me to not hilite of me
else beep
end mouseUp
-- part 34 (button)
-- low flags: 00
-- high flags: 8001
-- rect: left=261 top=272 right=284 bottom=273
-- title width / last selected line: 0
-- icon id / first selected line: 5070 / 5070
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: 13
----- HyperTalk script -----
on mouseUp
if icon of me is 0 then set hilite of me to not hilite of me
else beep
end mouseUp
-- part 35 (button)
-- low flags: 00
-- high flags: A001
-- rect: left=293 top=271 right=285 bottom=328
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Revert
----- HyperTalk script -----
on mouseUp
repeat with index = 36 to 44
set hilite of button id index to false
set style of button id index to opaque
end repeat
end mouseUp
-- part 36 (button)
-- low flags: 00
-- high flags: 8001
-- rect: left=330 top=272 right=284 bottom=342
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: M
----- HyperTalk script -----
on mouseUp
if icon of me is 0 then set hilite of me to not hilite of me
else beep
end mouseUp
-- part 37 (button)
-- low flags: 00
-- high flags: 8001
-- rect: left=345 top=272 right=284 bottom=357
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: 1
----- HyperTalk script -----
on mouseUp
if icon of me is 0 then set hilite of me to not hilite of me
else beep
end mouseUp
-- part 38 (button)
-- low flags: 00
-- high flags: 8001
-- rect: left=360 top=272 right=284 bottom=372
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: 2
----- HyperTalk script -----
on mouseUp
if icon of me is 0 then set hilite of me to not hilite of me
else beep
end mouseUp
-- part 39 (button)
-- low flags: 00
-- high flags: 8001
-- rect: left=375 top=272 right=284 bottom=387
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: 3
----- HyperTalk script -----
on mouseUp
if icon of me is 0 then set hilite of me to not hilite of me
else beep
end mouseUp
-- part 40 (button)
-- low flags: 00
-- high flags: 8001
-- rect: left=390 top=272 right=284 bottom=402
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: 4
----- HyperTalk script -----
on mouseUp
if icon of me is 0 then set hilite of me to not hilite of me
else beep
end mouseUp
-- part 41 (button)
-- low flags: 00
-- high flags: 8001
-- rect: left=405 top=272 right=284 bottom=417
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: 5
----- HyperTalk script -----
on mouseUp
if icon of me is 0 then set hilite of me to not hilite of me
else beep
end mouseUp
-- part 42 (button)
-- low flags: 00
-- high flags: 8001
-- rect: left=420 top=272 right=284 bottom=432
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: 6
----- HyperTalk script -----
on mouseUp
if icon of me is 0 then set hilite of me to not hilite of me
else beep
end mouseUp
-- part 43 (button)
-- low flags: 00
-- high flags: 8001
-- rect: left=435 top=272 right=284 bottom=447
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: 7
----- HyperTalk script -----
on mouseUp
if icon of me is 0 then set hilite of me to not hilite of me
else beep
end mouseUp
-- part 44 (button)
-- low flags: 00
-- high flags: 8001
-- rect: left=450 top=272 right=284 bottom=462
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: 8
----- HyperTalk script -----
on mouseUp
if icon of me is 0 then set hilite of me to not hilite of me
else beep
end mouseUp
-- part contents for card part 9
----- text -----
0.000
-- part contents for card part 11
----- text -----
Table 1
-- part contents for card part 12
----- text -----
NA
-- part contents for card part 10
----- text -----
NA
-- part contents for card part 5
----- text -----
0
-- part contents for card part 6
----- text -----
0
-- part contents for card part 7
----- text -----
0.000
-- part contents for card part 8
----- text -----
0.000